home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / lettori / cdind13.lha / cdindexer / CDIndexer < prev    next >
Text File  |  1997-03-05  |  2KB  |  82 lines
  1. setenv title CDIndexer 1.3
  2. setenv body1 CDIndexer v1.3  ©1997 by Diego Nova*n*n
  3. setenv body2 Questo programma ti permette di creare*n
  4. setenv body3 una lista in formato HTML del contenuto*n
  5. setenv body4 di un CD-ROM.*n
  6. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  7. IF $risp VAL EQ 0
  8.     skip abort
  9. ENDIF
  10.  
  11. setenv title CDIndexer 1.3
  12. setenv body1 Dopo questa schermata ti verrà presentato*n
  13. setenv body2 un requester in cui dovrai selezionare la*n
  14. setenv body3 directory dove tutti i files .HTML generati*n
  15. setenv body4 verranno copiati.*n
  16. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  17. IF $risp VAL EQ 0
  18.     skip abort
  19. ENDIF
  20.  
  21. requestfile >env:dest DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona la destinazione della lista" DRAWERSONLY
  22. IF WARN
  23.     skip abort
  24. ENDIF
  25.  
  26. setenv title CDIndexer 1.3
  27. setenv body1 Ora ti verrà richiesto un ultimo sforzo*n
  28. setenv body2 per scegliere la directory in cui sono*n
  29. setenv body3 contenuti tutti i files da mettere in*n
  30. setenv body4 lista.*n
  31. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  32. IF $risp VAL EQ 0
  33.     skip abort
  34. ENDIF
  35.  
  36. requestfile >env:sorg DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona la directory sorgente" DRAWERSONLY
  37. IF WARN
  38.     skip abort
  39. ENDIF
  40.  
  41. GRABTITLE >NIL:
  42.  
  43. cd $dest
  44. IF NOT EXISTS $dir
  45.     makedir $dir
  46. ENDIF
  47.  
  48. MERGEFILES >NIL:
  49.  
  50. cd $sorg
  51. list >RAM:temp.index all ~(#?.info) LFORMAT "%E~%P%N~%L"
  52. CDI $sorg $dest >NIL:
  53.  
  54. lab successful
  55. setenv title CDIndexer 1.3
  56. setenv body1 Lista Creata.*n
  57. setenv body2 Buona consulatazione*n
  58. requestchoice >env:cancel "$title" "$body1 $body2" "OK"
  59.  
  60. skip exit
  61.  
  62. lab abort
  63. setenv title CDIndexer 1.3
  64. setenv body1 Programma Abbandonato
  65. requestchoice >env:cancel "$title" "$body1" "OK"
  66.  
  67. lab exit
  68.  
  69. unsetenv sorg
  70. unsetenv dest
  71. unsetenv title
  72. unsetenv body1
  73. unsetenv body2
  74. unsetenv body3
  75. unsetenv body4
  76. unsetenv cancel
  77. unsetenv risp
  78. unsetenv dir
  79.  
  80. delete RAM:temp.index QUIET
  81. delete RAM:nomifiles.temp QUIET
  82.